home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 October / 1984-10.d64 / turtle graphic 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  48 lines
  1. 100 rem turtle data, for use with turtle graphics interpreter. use turtle boot
  2. 110 rem to load.
  3. 120 for k= 3584 to 4095: read j: poke k, j: next
  4. 200 rem heading 0
  5. 210 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0
  6. 220 data 60,0,0,126,0,0,255,0,1,255,128,3,255,192,7,255,224,15,255,240,31,255
  7. 230 data 248,0,0,0,0,0,0,0
  8. 240 rem heading 45
  9. 250 data 0,63,255,0,31,255,0,15,255,0,7,255,0,3,255,0,1,255,0,0,127,0,0,63,0
  10. 260 data 0,31,0,0,7,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. 270 data 0,0,0,0,0
  12. 280 rem heading 90
  13. 290 data 0,0,0,0,0,0,224,0,0,240,0,0,248,0,0,254,0,0,255,0,0,255,128,0,255,192
  14. 300 data 0,255,224,0,255,224,0,255,192,0,255,128,0,255,0,0,254,0,0,248,0,0,240
  15. 310 data 0,0,224,0,0,0,0,0,0,0,0,0,0,0,0
  16. 320 rem heading 135
  17. 330 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0
  18. 340 data 7,0,0,31,0,0,63,0,0,127,0,1,255,0,3,255,0,7,255,0,15,255,0,31,255,0
  19. 350 data 63,255,0
  20. 360 rem heading 180
  21. 370 data 0,0,0,31,255,248,15,255,240,7,255,224,3,255,192,1,255,128,0,255,0,0
  22. 380 data 126,0,0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. 390 data 0,0,0,0,0,0,0,0,0
  24. 400 rem heading 235
  25. 410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,192,0,0
  26. 420 data 224,0,0,248,0,0,252,0,0,254,0,0,255,128,0,255,192,0,255,224,0,255,240
  27. 430 data 0,255,248,0,255,252,0,0
  28. 440 rem heading 270
  29. 450 data 0,0,0,0,0,0,0,0,14,0,0,30,0,0,62,0,0,254,0,1,254,0,3,254,0,7,254,0,15
  30. 460 data 254,0,15,254,0,7,254,0,3,254,0,1,254,0,0,254,0,0,62,0,0,30,0,0,14,0,0
  31. 470 data 0,0,0,0,0,0,0,0
  32. 480 rem heading 315
  33. 490 data 255,252,0,255,248,0,255,240,0,255,224,0,255,192,0,255,128,0,254,0,0
  34. 500 data 252,0,0,248,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  35. 510 data 0,0,0,0,0,0,0,0,0,0,0,0
  36. 600 rem splitscreen routine
  37. 610 for k= 49152 to 49349: read j: poke k, j: next
  38. 620 data 173,25,208,141,25,208,41,1,208,3,76,188,254,173,18,208,16,18,169,21
  39. 630 data 141,24,208,169,27,141,17,208,169,1,141,18,208,76,188,254,169,25,141
  40. 640 data 24,208,169,59,141,17,208,169,209,141,18,208,24,165,214,105,236,16
  41. 650 data 3,32,83,192,165,197,201,4,208,3,238,32,208,201,5,208,3,238,33,208,32
  42. 660 data 132,192,76,49,234,165,2,162,0,157,0,4,232,208,250,157,0,5,232,208,250
  43. 670 data 157,0,6,232,208,250,162,31,157,0,7,202,16,250,169,32,162,201,157,31,7
  44. 680 data 202,208,250,24,160,0,162,20,32,240,255,96,162,39,165,2,157,248,6,202
  45. 690 data 16,250,96,24,169,32,133,252,169,0,133,251,168,145,251,200,208,251,230
  46. 700 data 252,165,252,201,64,208,1,96,152,240,239,120,169,127,141,13,220,169,1
  47. 710 data 141,26,208,169,192,141,21,3,169,0,141,20,3,169,1,141,18,208,88,96
  48.